﻿Imports System
Imports System.Data
Imports System.IO


Public Class Frm_Systemsettings
    Private Sub Frm_Systemsettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click
        Dim Isregister As Boolean = False
        Dim frmsystemsettings As New Frm_Systemsettings
        If Isregister = False Then
            frmsystemsettings.Dispose()
            Dim frmlogin As New LoginForm
            frmlogin.ShowDialog()
        Else
            frmsystemsettings.Dispose()
            Dim frmlogin As New LoginForm
            frmlogin.ShowDialog()
        End If
    End Sub

    Private Sub BtnBuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuy.Click
        Dim frmsystemsettings As New Frm_Systemsettings
        frmsystemsettings.Dispose()
        Dim frmregister As New Frm_SystemRegister
        frmregister.ShowDialog()
    End Sub
End Class